home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 17 Arcade _ Action Games / LIFE1.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.6 KB  |  66 lines
  1. 10 POKE52,32:POKE56,32:CLR
  2. 20 FORI=16400TO16714:READI1:POKEI,I1:NEXTI
  3. 30 G1=53265:G2=53272:G3=53280:G4=53269:G5=53287
  4. 40 G6=53276:G7=53248:G8=53249:G9=53264:G0=56320
  5. 50 SYS16400
  6. 60 POKEG1,PEEK(G1)OR32:POKEG2,PEEK(G2)OR8:POKEG3,9
  7. 80 FORI=1024TO2023:POKEI,16:NEXTI
  8. 90 POKE2040,13:POKE832,128:FORI=833TO894:POKEI,0:NEXTI
  9. 100 POKEG4,1:POKEG5,5:POKEG6,0
  10. 105 XF=317:YF=197:XS=24:YS=50:A0=256:A5=255:A8=8192
  11. 110 X=1:Y=197:POKEG7,25:POKEG8,247:POKEG9,0
  12. 120 M=0
  13. 130 J=(PEEK(G0)AND31)-20:IFJ<1THEN260
  14. 140 ONJGOTO120,120,150,120,120,120,170,120,190,210,120
  15. 150 IFX<XFTHENX=X+2
  16. 160 GOTO220
  17. 170 IFX>1THENX=X-2
  18. 180 GOTO220
  19. 190 IFY<YFTHENY=Y+2
  20. 200 GOTO220
  21. 210 IFY>3THENY=Y-2
  22. 220 X1=X+XS:X2=0:IFX1>A5THENX2=1:X1=X1-A0
  23. 230 POKEG7,X1:POKEG8,Y+YS:POKEG9,X2
  24. 240 IFM=1THEN130
  25. 250 FORW=1TO100:NEXTW:M=1:GOTO130
  26. 260 IFJ<>-5THEN120
  27. 270 IFX=1THEN320
  28. 280 N1=XAND7:Y1=Y-1:N2=Y1AND7:N3=2^(7-N1)
  29. 290 N=A8+40*(Y1-N2)+X-N1+N2:P=PEEK(N)
  30. 300 POKEN,(PORN3)ANDNOT(PANDN3)
  31. 310 FORW=1TO300:NEXTW:GOTO120
  32. 320 IFY>193THEN325
  33. 322 SYS16400
  34. 323 FORW=1TO500:NEXTW:GOTO110
  35. 325 POKEG4,0
  36. 330 SYS16421:IF(PEEK(G0)AND31)<>15THEN330
  37. 340 POKEG4,1:FORW=1TO500:NEXTW:GOTO120
  38. 350 DATA169,32,170,133,106,169,0,133,105,168,145,105,200,208,251
  39. 351 DATA230,106,202,208,246,96
  40. 352 DATA169,198,133,103,169,30,133,104,169,0,133,111,162,0,160,2,181,103
  41. 353 DATA24,105,2,149,105,181,104,149,106,165,111,41,3,208,13,181,105,24
  42. 354 DATA105    
  43. 355 DATA198,111,198,111,165,105,133,103,165,106,133,104,162,160,169,0,157
  44. 356 DATA7,67,202,208,250,162,2,149,97,202,16,251,133,112,41,3,208,44,162,4
  45. 357 DATA160,2,161,105,153,100,0,202,202,136,16,246,162,4,181,105,24,105,8
  46. 358 DATA149,105,144,2,246,106,202,202,16,241,162,5,181,97,208,7,202,16,249
  47. 359 DATA169,4,208,73,162,2,181,97,54,100,42,54,100,42,41,63,149,97,202,16
  48. 360 DATA241,165,112,74,240,49,165,97,24,101,98,101,99,240,40,168,41,3
  49. 361 DATA162,2,133,251,152,106,    
  50. 362 DATA17,201,3,144,13,240,6,165,98,41,4,240,5,166,112,254,7,67,169,1,24
  51. 363 DATA101,112,201,160,176,3,76,119,64,165,111,56,233,1,240,40,165,103
  52. 364 DATA133,105,165,104,133,106,162,0,160,4,10,10,24,125,104,66,232,136
  53. 365 DATA208,246,145,105,165,105,24,105,8,133,105,144,2,230,106,138,201
  54. 366 DATA160,208,226,162,160,189,7,67,157,103,66,202,208,247,165,111,201,98
  55. 367 DATA176,3,76,49,64,208,9,230,111,165,103,24,105,2,208,187,96
  56. 400 REM"ìôLIFE - CONWAY'S CELLULAR AUTOMATION
  57. 410 REM"    BY DAVE JOHNSON OF THEìNAT. SUPERCONDUCTING CYCLOTRON LAB.
  58. 430 REM"(517-353-6718)ì
  59. 440 REM"PUT JOYSTICK IN PORT 2ìMOVE CURSOR TO DESIRED POSITONS AND
  60. 450 REM"TOGGLE CELL WITH FIRE BUTTONì
  61. 460 REM"TO START THE LIFE CYCLES MOVE THE
  62. 465 REM"CURSOR TO THE BOTTOM LEFT CORNER
  63. 470 REM"AND PRESS THE FIRE BUTTON.ìPRESS AGAIN TO STOP.
  64. 480 REM"ìTO CLEAR THE SCREEN MOVE THE CURSOR TO
  65. 490 REM"THE TOP LEFT AND PUSH THE FIRE BUTTON
  66.